#!/usr/bin/env perl
use 5.014;
use strict;

use File::Basename;

print "Please";

my $dirname = dirname "c:/a/b/c.txt";
print $dirname;

use DBI;